home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 48
/
MOBICLIC 48.ISO
/
pc
/
DATA
/
COMMUNS
/
MENUBD.DIR
/
00033_Script_SCRIPTS_GENE_MENUBD
< prev
next >
Wrap
Text File
|
2002-07-23
|
3KB
|
98 lines
global validMBD, ouvreMenuBD, rollMessBD, menuFermeBD, gNbStamps, gfirstStampTrackNo
global gL_bornes_Ekerre_R, gnewNivson, nivson, gmemNivson, gflag_Silence, gpisteNote_Silence
----------------------
on prepareMovie
gNbStamps = 3
gL_bornes_Ekerre_R =[41,96,159,407]
case(nivson[3] <40) of
1:
gmemNivson = 0
0:
case(nivson[3] < 100) of
1:
gmemNivson = 1
0:
case(nivson[3] < 150) of
1:
gmemNivson = 2
0:
case(nivson[3] < 210) of
1:
gmemNivson = 3
0:
gmemNivson = 4
end case
end case
end case
end case
if gmemNivson = VOID then gmemNivson = 0
if nivson = VOID then nivson = [0,0,0]
end
--------------
on griser
repeat with i=1 to gNbStamps
if validMBD[i]= 0 then
Nopiste = gfirstStampTrackNo + i -1
tampon = sprite(Nopiste).member.name
puppetsprite Nopiste, TRUE -- on rend la piste esclave pour conserver le changement d'acteur
sprite(Nopiste).member = tampon&"_G"
updateStage
end if
end repeat
end griser
----------------------------------
on fermerMenu
ouvreMenuBD=0
go "fin"
end fermerMenu
------------------------------
on calcul_nivson
zelisteNivpossibles = [0,64, 128,192,255]
zenivselected = zelisteNivpossibles[gnewNivson + 1]
memNivson = nivson
L_coefmodif_son = [0,0,0]
repeat with i = 1 to 3
case(nivson[i]) of
0:
L_coefmodif_son[i] = 9999
otherwise:
L_coefmodif_son[i] = abs(float(zenivselected)/memnivson[i]) --on prend la v.absolue pour la piste son 1 car la note silence donne un volume nΘgatif
end case
end repeat
repeat with i = 1 to 3
case(L_coefmodif_son[i]) of
9999:
case(gnewNivson) of
0:
sound(i).volume = 0
1:
sound(i).volume = 64*gflag_Silence
2:
sound(i).volume= 128
3:
sound(i).volume= 192
4:
sound(i).volume = 255
end case
otherwise:
sound(i).volume = nivSon[i]* L_coefmodif_son[i]
end case
end repeat
case(gnewNivson) of
0:
nivSon = [0,0,0]
1:
nivSon = [64*gflag_Silence,64,64]
2:
nivSon = [128,128,128]
3:
nivSon = [192,192,192]
4:
nivSon = [255,255,255]
end case
end
-------------------------